home *** CD-ROM | disk | FTP | other *** search
/ Merciful 5 / Merciful - Disc 5.iso / software / p / pcqpascalv1.2d.lha / Examples2 / StingLibPCQ / source / Copy.p < prev    next >
Encoding:
Text File  |  1997-05-06  |  259 b   |  20 lines
  1. external;
  2.  
  3. {$I "include:utils/stringlib.i"}
  4.  
  5. function Str_Copy(s : string;dep,long : integer) : string;
  6.  
  7. var
  8.     s1 : string;
  9.     c    : integer;
  10.  
  11. begin
  12.     s1 := allocstring(long+1);
  13.     dep := dep-1;
  14.     for c := 0 to (long-1) do
  15.         s1[c] := s[c+dep];
  16.     Str_copy := s1;
  17. end;
  18.  
  19.  
  20.